home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #44 (May 89) / Search Source Code / Sysenvirons folder LSP / EnvironsIntf.p < prev    next >
Text File  |  1988-07-12  |  1KB  |  62 lines
  1. {}
  2. {  File: EnvironsIntf.p}
  3. {}
  4. { Copyright Apple Computer, Inc. 1987}
  5. { All Rights Reserved}
  6. {}
  7.  
  8.  
  9.  
  10.  
  11. UNIT EnvironsIntf;
  12.  
  13. INTERFACE
  14.     CONST
  15.         envMac = -1;            {returned by glue, if any}
  16.         envXL = -2;            {returned by glue, if any}
  17.         envMachUnknown = 0;
  18.         env512KE = 1;
  19.         envMacPlus = 2;
  20.         envSE = 3;
  21.         envMacII = 4;
  22.  
  23.         envCPUUnknown = 0;            { CPU types }
  24.         env68000 = 1;
  25.         env68010 = 2;
  26.         env68020 = 3;
  27.  
  28.         envUnknownKbd = 0;            { Keyboard types }
  29.         envMacKbd = 1;
  30.         envMacAndPad = 2;
  31.         envMacPlusKbd = 3;
  32.         envAExtendKbd = 4;
  33.         envStandADBKbd = 5;
  34.  
  35.         { Errors }
  36.  
  37.         envNotPresent = -5500;        { returned by glue. Official stuff now }
  38.         envBadSel = -5501;        { Selector non-positive }
  39.         envSelTooBig = -5502;        { Selector bigger than call can handle }
  40.  
  41.  
  42.     TYPE
  43.         SysEnvRec = RECORD
  44.                 environsVersion : INTEGER;
  45.                 machineType : INTEGER;
  46.                 systemVersion : INTEGER;
  47.                 processor : INTEGER;
  48.                 hasFPU : BOOLEAN;
  49.                 hasColorQD : BOOLEAN;
  50.                 keyBoardType : INTEGER;
  51.                 atDrvrVersNum : INTEGER;
  52.                 sysVRefNum : INTEGER;
  53.             END;
  54.  
  55.  
  56.     FUNCTION SysEnvirons (versionRequested : INTEGER;
  57.                                     VAR theWorld : SysEnvRec) : OSErr;
  58.  
  59. IMPLEMENTATION
  60.     FUNCTION SysEnvirons;
  61.     External;
  62. END.